Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/a_utils/perl/perl5a1.lha/perl5alpha1/Bugs/minmax

Text File | 1993-03-18 | 245 b | 13 lines

#!./perl

sub minmax {
  eval '@_ = sort { $a '.shift().' $b } @_';
  (shift, pop(@_));
}

($x, $y) = &minmax('<=>', 2, 4, 1, 0, 3);
print "x = $x, y = $y\n";
($x, $y) = &minmax('cmp', "foo", "bar", "zot", "xyzzy");
print "x = $x, y = $y\n";